home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_46465.txt < prev    next >
Encoding:
Text File  |  1991-04-30  |  2.2 KB  |  108 lines
  1. -- card: 46465 from stack: in.3r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 14090
  5. -- name: AutoScroll
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=117 top=55 right=138 bottom=471
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=314 top=175 right=205 bottom=345
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 26425 / 26425
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34. ----- HyperTalk script -----
  35. on goNext
  36.   visual scroll left very fast
  37.   send closecard to this card
  38.   go this card   --this is just for demonstration purposes
  39.   --go next card
  40.   send opencard to this card
  41. end goNext
  42.  
  43. on mousestilldown
  44.   global scrolling
  45.   put true into scrolling
  46.   goNext
  47. end mousestilldown
  48.  
  49. on mouseup
  50.   global scrolling
  51.   if not scrolling then goNext
  52.   put false into scrolling
  53. end mouseup
  54.  
  55.  
  56.  
  57.  
  58. -- part 3 (button)
  59. -- low flags: 00
  60. -- high flags: 2000
  61. -- rect: left=265 top=175 right=205 bottom=296
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 902 / 902
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: 
  70. ----- HyperTalk script -----
  71. on goPrev   --This handler can be at the card, bkgnd, or stack level
  72.   visual scroll right very fast
  73.   send closecard to this card
  74.   go this card   --this is just for demonstration purposes
  75.   --go prev card
  76.   send opencard to this card
  77. end goPrev
  78.  
  79. on mousestilldown
  80.   global scrolling
  81.   put true into scrolling
  82.   goPrev
  83. end mousestilldown
  84.  
  85. on mouseup
  86.   global scrolling
  87.   if not scrolling then goPrev
  88.   put false into scrolling
  89. end mouseup
  90.  
  91.  
  92.  
  93.  
  94. -- part contents for background part 5
  95. ----- text -----
  96. 10
  97.  
  98. -- part contents for background part 13
  99. ----- text -----
  100. Buttons
  101.  
  102. -- part contents for background part 12
  103. ----- text -----
  104. AutoScroll
  105.  
  106. -- part contents for card part 1
  107. ----- text -----
  108. The scripts in these buttons allow the user to continuously scroll through your stack by clicking and holding down one of your arrow buttons.